sub Map {
  my $sub = shift();
  return sub {
    my @new_arr; # want 
    foreach my $item (@_) {
      push @new_arr, $sub->($item);
    }
    return @new_arr;
  }
}