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