foreach (@$files) { $table{$_} = substr $_, 0, -2; }