#!/bin/perl

my @keys =(Hi,There);
my %views = (Hi,BYE,There,HERE);
my $mdyt = system("date '+%m/%d/%Y %H:%M:%S'");
print $mdyt;
foreach my $data (@keys) { print FILE $data.",".$views{$data}.",".$mdyt."\n";}