my @things = 1.. 5;
display_thing() foreach @things;

sub display_thing {
    my $t = $_;
    print $t
}