use strict;
use Data::Dumper;

my @a = (1,2,3);
my @b = (4,5,6);
my @c = (7,8,9);

my %h;

for (0..$#a)
{
	$h{$a[$_]} = [$b[$_], $c[$_]];
}

my @d = (1,3);

for ( @d )
{
	print join ("*",@{$h{$_}}), "\n"
		if $h{$_};
}