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

my %FORM = (
	a=>'abc',
	b=>'defg',
);

print "Test: '".length(join('',map {defined($FORM{$_}) ? $_.$FORM{$_} : $_} keys %FORM))."'\n";