KWPro.net

#!/usr/bin/perl

my @first = qw( Reina Norika Kaori Ryoko Shiho Aya Hitomi );
my @last = ( 'Miyauchi', 'Fujiwara', 'Kawai', 'Yonekura', undef, 'Matsuura', 'Kuroki' );
@names{ @first } = @last;
print "$_ is $names{$_}\n" foreach sort keys %names;

my @hotties = ( 'Naoko Kido', 'Michiyo Seki', 'Hisaki Nakamura', 'Shoko Kanemura', 'Keiko Iino' );
@h{ @hotties } = (1) x @hotties; print "$_ is $h{$_}\n" foreach sort keys %h;