P:\test>perl -MLexical::Alias
my( @a, $x, $y, $z );
@a = 'A' .. 'Z';
alias( $a[23], $x );
alias( $a[24], $y );
alias( $a[25], $z );
print "$x : $y : $z\n";
^Z
X : Y : Z