foreach my $value ('1', '2', '3') {
    print "Next value is $value\n";
}

##</code><code>##

foreach ('1', '2', '3') {
    print "Next value is $_\n";
}

##</code><code>##

sub do_something {
    my ($arg1, $arg2) = @_;
    printf "You passed arguments '%s' and '%s'\n", $arg1, $arg2;
}