my $a = (1, 2, 3)[1];
$a = (caller(1))[2, 3]
