#!/usr/local/bin/perl

    open (DATA,"<data.txt")
        || die "Can't open $DATA $!";

while (<DATA>) {
  chomp;
  @line = split(/,/);
  $key = shift @line;
  push @{$data{$key}}, \@line;
}
print $data{"Andrea"}[0][1], " should be good\n"; # offsets off by one
+
print $data{"Dave"}[0][1], " should be better\n";
print $data{"Joe"}[0][1], " should be 0\n";