Did you write that code?

Ask perl

$ perl -MO=Deparse,-p pm906128.pl
($a = 'a');
($b = 'b');
(@x = 'a,b,c');
(@y = 'c,d,e');
{
    (my $var = @x);
    print("$var\n");
}
($var = (($a lt $b) ? "@x" : "@y"));
print("\n$var\n");
($a = ($b ? "@x" : "@y"));
print("$a\n");
pm906128.pl syntax OK
[download]