reflect [Perl]

reflect.pl

#!/usr/bin/perl -w

sub add{
   my($a,$b)=@_;
   print $a+$b;
   return $a+$b;
}

'add'->(1,2);

$addSub='add';
$addSub->(1,2);

@arr=('add','sub','multi');
$arr[0]->(1,2);

%hash=(
   'add'=>'add',
   'sub'=>sub{ my($a,$b)=@_;
         return $a-$b;
    }
);
$hash{'add'}->(1,2)