#!/usr/bin/perl
use strict;
use warnings;
use Hash::Util qw(hash_seed);

my %t=qw( a A b B c C d D e E f F );

print hash_seed() . "\n";

print join( '', %t) ."\n";