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

my %foo = ("do"=>  "done", "eggs"  =>"green ham", "was" => "were",);

my @v;
(@v = keys %foo) == 1 or warn "Got more than one: " . @v . "\n";
print "V:@v\n";