use List::Util 'shuffle';


##</code><code>##

my @friends = map { (split /\./)[1] } <DATA>;
chomp @friends;

##</code><code>##

@friends = shuffle @friends;
my %couple = (@friends);

##</code><code>##

for (keys %couple) {
    print "$_ and $couple{$_} are partners\n";
}

##</code><code>##

__DATA__
1.bobby
2.jane
3.charleen
4.markus
5.gabriel
6.Alex