[estrawser@bast1 test]$ cat arr
#!/usr/bin/perl

for($i=0;$i<5;$i++){
push (@$i, "foo bar $i");
print "@$i ";
}
print "\n";

for($x=0;$x<5;$x++){
print "@$x ";
}
print "\n";

[estrawser@bast1 test]$ ./arr
foo bar 0 foo bar 1 foo bar 2 foo bar 3 foo bar 4 
foo bar 0 foo bar 1 foo bar 2 foo bar 3 foo bar 4