open SELF, $0;
@lines = <SELF>;
close SELF;

# or, more sneakily

open 0;
@lines = <0>;
close 0;