my @result = (); foreach (split("\n",`mount -n`)) { push @result, (split)[0,4]; } my %result = @result;