@result = `df`;
for my $line ( @result ) {
    # Array Index gemaess df-Ausgaben bestimmen
    my ( $what, $percent ) = ( split(/\s+/, $line ) )[0,3];

   print "$what $percent", $/;
}