I abandoned the use of formats many years ago, and at first glance i think it is not possible to achieve what you want.

But as side note you have many uncautious statements:

• use strict; and use warnings; are missing. they are very very useful, dont miss them! never
• open(DATA,"<C:/Perl/perl_tests/sports.txt"); is the worst way to open a file in 2016. you must use open my $file_handle, '<', 'c:/path/file.ext' or die $!;
• chop cut the last char I think you want chomp that remove newline at the end if present.
• UPDATE print("$_\n"); will provoke print interpreted as function at.. use print "$_\n"; or say $_; or if you need parens as first think after print use + sign like in print +(join "\t",@arr), "\n";

UPDATE: i'd go with something like:

use strict;
use warnings;

my $cur_pers = '';
my $sep = ('-'x70)."\n";
# print header
print '=' x 70, "\n",
      (join "\t",('Name','Format of match',
                  'matches played','runs','scored','page 1')),
      "\n", '=' x 70, "\n";

while (<DATA>){
  chomp;
  my @elements = split /!/,$_;
  # check if person change
  if ( $cur_pers ne $elements[0]){
      print $sep;
      $cur_pers = $elements[0];
  }
  print +(join "\t",@elements),"\n"
}

__DATA__
sachin tendulkar!ODI!434!12000
sachin tendulkar!Test!246!10900
sachin tendulkar!T20!189!5000
sourav ganguly!ODI!334!8000
sourav ganguly!Test!235!5000
sourav ganguly!T20!124!1800
rahul dravid!ODI!387!9000
rahul dravid!Test!212!5980
rahul dravid!T20!43!1345
[download]