my $op = shift @ARGV;
# first element of @ARGV now in $op and removed from @ARGV.

print add(@ARGV) . "\n"  if $op eq 'add';
print multiply(@ARGV) . "\n"  if $op eq 'multiply';
# subs as before