{package Student;
  sub new {
    my ($class, $name, $age, $regd_no)=@_;
    my $objref = { NAME    => $name, 
                   AGE     => $age,
                   REGD_NO => $regd_no
                 };
    print"\n class: $class\n";		   
    return bless $objref, $class;
  }

  ...

##</code><code>##

...
my @students;
open (DNAFILE, '<', $DNAfilename) or die "Perl says $!"; 
while (<DNAFILE>) {
  chomp; 
  push @students, Student->new(split /:/);
} 
...