#!/usr/bin/perl -w

open SSG, "<ADRX.ssg" || die "can\'t open ADRX.ssg";

@ssg = <SSG>;
chomp @ssg;

print $ssg[93];       


##</code><code>##

[ceidem@bizet ~/src/perl/ssg]$ ./pssg2.pl 
[ceidem@bizet ~/src/perl/ssg]$ 

##</code><code>##

#!/usr/bin/perl -w

open SSG, "<ADRX.ssg" || die "can\'t open ADRX.ssg";

@ssg = <SSG>;
#chomp @ssg;

print $ssg[93];       

##</code><code>##

[ceidem@bizet ~/src/perl/ssg]$ ./pssg2.pl 
2002
[ceidem@bizet ~/src/perl/ssg]$