Yes, there's a lot of different ways of writing loops.

Note that your code can be simplified to

my %y; $y{shift(@x)} = 1 while @x;
[download]

or the non-destructive

my %y = map { $_ => 1 } @x;
[download]