@contents = <>;
foreach $line (@contents){
    @data = split(/,/, $line);
    print $data[2], "-", $data[1], "\n";
}
