my @df = `df /var`;

##</code><code>##

print @df;

##</code><code>##


Filesystem           1K-blocks    Used Available Use% Mounted on
/dev/mapper/vg_mail-lv_var
                      94959436 1415576  88713448   2% /var


##</code><code>##


my ($used, $free) = (split (/\s+/, $df[1]))[2,3]; #HOW TO PRINT THE OUTPUT? 


##</code><code>##

print $used;
print $free;

##</code><code>##

my $used = (split (/\s+/, $df[1]))[2];
my $free = (split (/\s+/, $df[1]))[3];