#!/usr/bin/perl -w
use strict;

my @list=("one", 1, "two", 2, 3, "Three", 3, "four", 5);

print join("][", keys %{{@list}})."\n";
print join("][", values %{{@list}})."\n";