Help for this page

Select Code to Download

Select or download this

my %OPERATIONS = (
    '*' => sub { $_[0] * $_[1] }, 
...
    $OPERATIONS{$operator}->($first, $second), 
    "\n"
    if exists $OPERATIONS{$operator};