my @node_number = @ARGV; for my $nn ( @node_number ) { print <## % perl my_program.pl 4 13 1 22 14