1 #!/usr/bin/perl 2 3 use strict; 4 5 @_ = qw(alpha omega); 6 $_ = qw(nothing nothing); 7 subroutine (); 8 9 sub subroutine { 10 print "In the beginning there was $_[0], in the end there will be $_[1].\n"; 11 }