(@rest = split(/ /, $rest);

##</code><code>##

$apass = pop @rest;

##</code><code>##

print "ATTEMPT PASS: $apass\n";

##</code><code>##

print "\$REST: $rest\n"; 
##</code><code>##

foreach $i @rest {
    print "\@REST: $i\n";

##</code><code>##

print "\$_: $_\n";