#!/usr/bin/perl # Copyright (C) 2004-2006, Parrot Foundation. use strict; use warnings; my $o = new Foo(); for my $i ( 1 .. 500000 ) { $o->[0] = $i; $o->[1] = $i; } print $o->[0], "\n"; package Foo; sub new { my $self = ref $_[0] ? ref shift : shift; return bless [ 10, 20 ], $self; } 1; # Local Variables: # mode: cperl # cperl-indent-level: 4 # fill-column: 100 # End: # vim: expandtab shiftwidth=4: