http://codegolf.stackexchange.com/questions/33196/loop-without-looping

gistfile1.pl

package My_Loop;

use strict;
use warnings;

our $AUTOLOAD;

sub AUTOLOAD {
    my ($class, $method) = split /::/, $AUTOLOAD;
    my ($prefix, $i) = split /_/, $method;
    $i--;

    my $next_method = "${prefix}_${i}";
    print "$i\n";

    return __PACKAGE__->$next_method;
}

sub loop_0 {}

__PACKAGE__->loop_13;

1;