sub send_slow{ ... while ($chunk = shift) { @linechars = split ('', $chunk); foreach $char (@linechars) { ... #### my @SlowChars = split(//,$_send); print Dumper(@SlowChars); my $return = $exp->send_slow(1,@SlowChars); #### print Dumper($_send); my $return = $exp->send_slow(1,$_send);