for my $line (@read_file[0..($m_line+2)])
{
  chomp($line);
  my @coloms=split(/;/,$line);
  push (@matrix, [@coloms[1..($n_column+1)]]);
}