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