Select Code to Download

my $d = [[],[], [], []];

sub pushsome {
  my $AoAref = shift;
...
    push @{$AoAref->[$i]}, $_[$i];
  }
}

while ( <DATA> )
{
  chomp;
  pushsome $d, split /,/;
}

#!/usr/bin/perl

...
my $d = fetchdata( shift );

# ...