#! perl
use strict;
use warnings;
use MyClass;

for my $foo (1 .. 2)
{
    my $o = MyClass->new({ number => $foo });
       $o->bar($foo);
}