#!/usr/bin/perl sub mysubf2 { foreach (@_) { print "$_ "; } print "\n"; } while (<STDIN>) { print "I saw $_"; } mysubf2(1, 3, 5, 7, 9);
./subfun.pl d I saw d q I saw q 1 3 5 7 9