c:\@Work\Perl\monks>perl -wMstrict -le
"my ($x, $y) = (2, 3);
 ;;
 print add($x, $y);
 ;;
 my $opt_dq = \"$x, $y\";
 print add(eval($opt_dq));
 ;;
 my $opt_sq = '$x, $y';
 print add(eval($opt_sq));
 ;;
 my @opt = ($x, $y);
 print add(@opt);
 ;;
 my @ra = (99, @opt, 98);
 print add(@ra[ 2, 1 ]);
 ;;
 exit;
 ;;
 sub add { my ($x, $y) = @_;  return $x + $y; }
"
5
5
5
5
5