perl -le 'sub x { return qw(a b c);}; $r=x; print $r'
c