A=[1,
2,
3,
4
]

##</code><code>##

open(FIL, $file) || die "can't open file $^E\n";
while(chomp($_ = <FIL>) ne "]"){
  #do stuff
}