my @Table; sub LoadTable { local $/; @Table = map {chomp; hex} split ' ', ; close DATA; }