my @a = (1 => 2 => 3 => 4);
print "$_\n" for @a;