@pattern_list = expect "SWBKPT hit for SLOT";

##</code><code>##

my @arr = qw( bob sue jane);
print "\@arr = " . join(':', @arr) . "\n";

##</code><code>##

my@mybox:~/sandbox
$ ./4.pl
@arr = bob:sue:jane

##</code><code>##

$expect->expect($timeout,"SWBKPT hit for SLOT");
sleep 2;
$expect->send("\n\n");