my $string = "awesome_array";
my $other_string = "another_awesome_array";

push (@$string, 1, 2, 3, 4, 5 );

foreach my $element(@awesome_array){
	print "$element\n";
	push (@$other_string, $element)
	}

print @another_awesome_array;