#!/usr/bin/perl

$foo = 'one';
%tests = (
  "$foo eq 'one'" => 'this is test one',
  "$foo eq 'two'" => 'this is test two'
);

foreach $test ( keys %tests ) {
  if ( $$test ) { print "yes\n"; }
}