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