#!/usr/bin/perl
    use strict;
    use warnings;

    use Tie::CSV_File;

    tie my @csvdata, 'Tie::CSV_File', 'perf.csv';
   # print "Line 5, column 1: ", $csvdata[4][0] . "\n";
    untie @csvdata;