my @array = (2, 4, 6);
my %hash = (1 => 'eins', 2 => 'zwei', 3 => 'drei',
            4 => 'vier', 5 => 'fuen', 6 => 'sex', # etc. ...
            );

@teil = @hash{@array};

ausgabe(\@teil);

sub ausgabe {
    print "$_\n" for @{$_[0]};
}