#!/usr/bin/perl -l
use strict;
use warnings;

sub slowly {
    sleep 1;
    return 4;
}

print "1. C-like with direct call";
for ( my $x=1; $x < slowly(); $x++ ) {
  print $x;
}

print "2. C-like with variable";
my $max = slowly();
for ( my $x=1; $x < $max; $x++ ) {
  print $x;
}

print "3. perlish for";
for my $x ( 1 .. slowly()-1 ) {
    print $x;
}