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

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