sub show_scalars
{
    my ( $str1, $str2, $str3 ) = @_;
    print "Last was $str3, preceded by $str2, and $str1 was first\n";
}

my @array = qw/one two three/;

show_scalars( @array );