$result = process_args(1, 2, 3, 4);
print "Result is $result \n";
sub process_args {
     my $c = shift:
     print "Arg array is: @_ \n";
     my $d = shift;
     print "First argument is $c \n";
     print "second argument if $d \n";
     print "Arg array is now: @_ \n";
     return $c + $d;
}