sub results {

my @data = 1..5;
my $results = \@data;

return $results;

}