#!/usr/bin/perl -w

use strict;
use Data::Dumper;

my %items;

$items{'joe'} = [ qw(pocket_knife coffee book hanker_chief) ];
$items{'sally'} = [ qw(eye_liner nail_polish purse) ];
$items{'bob'} = [ qw(calculator pocket_protector skittles ) ];

my @remapped_list = map {
    [ $_ => $items{$_} ];
} keys %items;

print Dumper \@remapped_list;

@remapped_list = map {
    [ $_, $items{$_} ];
} keys %items;

print Dumper \@remapped_list;