use Tie::File::AnyData::CSV;

tie my @arr,'Tie::File::AnyData::CSV', key=>0, field_sep => ",";
print "$arr[0]\n";
## prints
# Mike,5,6
# Mike,5,3

untie @arr;

tie my @arr2,'Tie::File::AnyData::CSV', key=>1, field_sep => ',';
print "$arr[0]\n";
## Prints
# Mike,5,6
# Mike,5,3
# John,5,1