#! perl -slw
use strict;

local $, = ' ';

my @array;
splice @array, rand( @array ), 0, $_ for map{ /^..(.*$)/ } <DATA>;
my %partners = @array;

print %partners;

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