#!/usr/bin/perl -w

use strict;

my @input = (1..6);

my @output = my_map(\&double, @input);

sub double {
    return 2 * shift;
}

sub my_map {
  my ($function, @values) = @_;

  my @results;
  foreach my $value (@values) {
     push @results, $function->($value);
  }

  return @results;
}

use Data::Dumper;
print Dumper \@output;;