Indeed. There is also no need to duplicate the temporary array into an anonymous array. You can just take a reference to it:

my @a; 
while( my @temp = split ',', <STDIN> ) { 
    push @a, \@temp 
} 
print "@$_" for @a;;
a,b,c
e,f,g
1,2,3
^Z

a b c

e f g

1 2 3
[download]