@lines = $t->cmd("some command"); 
@history[$a] = @lines; 
$a++; 
 
while ($x < 39) 
{ 
print "$lines[$x]\n"; 
$x++; 
}

@history[$a] = @lines;

@history[$a] = \@lines;

@lines = $t->cmd("devstat"); 
    @history[$a] = \@lines; 
	print @history[$a];

ARRAY(0x1b07e6c)

use strict;  
use warnings;  
 
my @lines = qw(a b c); 
my @history; 
 
$history[0] = \@lines; 
 
print $history[0]->[1];

@history[$a] = \@lines;

$history[$a] = \@lines;

use strict; 
use warnings; 
use Data::Dumper; 
 
my @history; 
 
for (1..3) { 
     
    # random numbers to simulate your telnet command 
    my @lines = (int(rand(100)), int(rand(25)), int(rand(50)) ); 
     
    push @history, \@lines; 
} 
 
# dump the entire data structure 
print Dumper @history; 
 
# print a single element 
print $history[1]->[2];

$bigvar .= join('', @lines);

@lines = $t->cmd("somecommand"); 
	$history[$slot] .= join('', @lines);