#!/usr/local/bin/perl
%hashtest = ("name1","val1","name2","val2","name3","val3");
print keys %hashtest;