#!/usr/bin/perl

%hash={ };
print ("put ID fallowed by a comma"," with the DNA for that ID\n\n");

$id=<STDIN>;

chomp $id;

@DNA=$id;

foreach( $id){
%hash= (@DNA);
if ($id){ print "Please enter another ID and DNA"}
else {print "Exit";}
 exit;}
print %hash;