use strict; 
use warnings; 
use 5.010; 
 
my @names = (); 
 
my $str = 'hello'; 
 
for my $number (1 .. 10) { 
    push @names, "$str $number"; 
} 
 
say $names[0]; 
say '-' x 10; 
 
for (@names) { 
    say; 
} 
     
 
 
--output:-- 
hello 1 
---------- 
hello 1 
hello 2 
hello 3 
hello 4 
hello 5 
hello 6 
hello 7 
hello 8 
hello 9 
hello 10