sub foo { my $s = shift; if( $s =~ /^(AAA|BBB|CCC)$/ ){ my $foo = $HASH{$1}; my $bar = bar($s); ... } } #### if( $s eq 'AAA' || $s eq 'BBB' || $s eq 'CCC' ){ ... } #### if( $s eq 'AAA' ){ ... }elsif( $s eq 'BBB' ){ ... }elsif( $s eq 'CCC' ){ }