my @msft = ();
open(F,"FILE_NAME.txt") or die "Cannot open File:$!\n";
while (<F>){
chomp;
my $tuple;
@$tuple = split(/,/, $_);
push (@msft, $tuple);
}