@array = q( hi bye see do );
my $lastword = $array[-1];