open (FH,"$file") || die ("could not openfile");
my @arr;
while (<FH>) {
	chomp; 
	push @arr , $1  if $_ =~ /\s+(\/\/.+)/;
}