$hash = { Ben = 5, scott => 4, jim => 1 };
@names = qw( Ben Scott Jim)
@array = [ 0,0,0,0,0,1,1,1,1,2];
$name = $names[$array[$_]];