Perl. Передать вывод команды в массив.

[Termitnik]

В перловом скрипте необходимо вывод команды df передать в массив. Делаю
@array = (system(df));
не выходит. Подскажите, как правильно.

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[thefree]

Код: Выделить всё

[root@or ~]# df -h
Файловая система      Разм  Исп  Дост  Исп% смонтирована на
/dev/mapper/VolGroup00-LogVol00
                       36G   20G   14G  60% /
/dev/hda1              99M   21M   74M  22% /boot
tmpfs                 252M     0  252M   0% /dev/shm
/dev/hdd1             151G  128G   17G  89% /mnt/hdd1
[root@or ~]# perl -e 'my @ar = `df -h`; print $ar[3]'
/dev/hda1              99M   21M   74M  22% /boot