#!/usr/bin/perl -w
#cash register program

#retreive date and time

########set up hashes##########


##############User input here#######

 print "Please enter your first and last name\n";
  chomp (my $name = <STDIN>);
 print "Please enter your state sales tax in percentage\n";
  chomp (my $tax = <STDIN>);

####enter loop here#######

$continue='Y';
  while ($continue eq 'Y'){
      print "Please enter an item or product name\n";
        chomp ($itemname = <STDIN>);
        push @item, $itemname;
        print "@item\n";
      print "Please enter the quantity of the item\n";
        chomp ($itemquantity  = <STDIN>);
      my %qty = ("$itemname" => $itemquantity);
      @qty=keys(%qty);
      print "@qty\n";
      print "Please enter the price of the item\n";
        chomp ($itemprice = <STDIN>);
      my %price = ("$itemname" => $itemprice);
      @price=keys(%price);
      print "@price\n";
      print "Would you like to add more item(s)? - Y or N\n";
      chomp ($continue = <STDIN>);
 }