my %stats = map {m/(\d+)[\t\s]+(.*)/; $2 => $1} `du -k`; for (keys %stats) { print "$_ = $stats{$_}\n"; }