my @foo = @{+shift};
print +(split)[2];
$hash{+lc}++;
# etcetera