my %quicktime_ext = map { $_ => undef } qw(...);

##</code><code>##

my $found = '';
# overparenthesised for clarity and laziness :)
map { $found || ($found = ($ext eq $_)) } @quicktime_ext;