@pairs = split(/&/,$buffer);
{
my $a = $pairs[1];
}
print $a; # undefined value

これは何か期待できる。