in reply to file extensions
so you dont really need to rework your list.my %quicktime_ext = map { $_ => undef } qw(...);
Of course map is effectively the same as foreachmy $found = ''; # overparenthesised for clarity and laziness :) map { $found || ($found = ($ext eq $_)) } @quicktime_ext;
|
|---|