while(<FILE>)
{
        @item = split(/\,/,$_);
}
close(FILE);
print $item[2],"\n";