perl -wle '$a[1]=[1];print $a[1]->[0];if($a[1]->[1]){print$a[1]->[1]}'
r
perl -wle '$a[1]=[1,2];print$a[1]->[0];if($a[1]->[1]){print$a[1]->[1]}'
r
l