my @a; $a[ $_ ] = chop $buffer for length($buffer)-1 .. 0;