#!/usr/bin/perl @all_strings=('110110101000101111', '110010101001011101', '110110111001001110', '110011101001011100', '111010101001011100'); foreach $string (@all_strings) { print($string,"\n"); }