Select Code to Download

my $make_output = sub {
    my ($Registration, $Rank) = @_;
    return @{ $Data{$Registration}->{Name} }[$Rank], "\t";
...

print $make_output->($Registration1, $Rank1),
      $make_output->($Registration2, $Rank2);

my $data = Data->new( ... );
print $data->make_output($Registration1, $Rank1),
...

    return @{ $self->{$Registration}->{Name} }[$Rank], "\t";
}