# untested.
@extensions = qw( 123 456 );
$match = join '|', @extensions;
if ( $test =~ /($match)$/ )
# etc