main::(ref1.pl:6):      print "@{$array}\n";
 
  DB<1> s
main::(ref1.pl:6):      print "@{$array}\n";

  DB<1> s
 Volume in drive C is PC COE
  Volume Serial Number is 2EB6-FC84

  Directory of C:\perl\practice

 12/11/2011  12:39 AM    <DIR>          .
 12/11/2011  12:39 AM    <DIR>          ..
 12/09/2011  12:27 AM               303 each.pl
 12/09/2011  12:16 AM               271 hashcolor.pl
 12/10/2011  01:31 PM               468 Perl-1.pl
 12/10/2011  02:13 PM               534 Perl-2.pl
 12/10/2011  05:28 PM               223 Perl-4.pl
 12/09/2011  12:34 AM               301 Perl-5.pl
 12/11/2011  12:39 AM               112 ref1.pl
                7 File(s)          2,212 bytes
                2 Dir(s)  445,457,670,144 bytes free

Debugged program terminated.  Use q to quit or R to restart,
  use o inhibit_exit to avoid stopping after program termination,
  h q, h R or h o to get additional info.

  DB<1> s
Use `q' to quit or `R' to restart.  `h q' for details.

  DB<1> q

C:\perl\practice>