#!/usr/bin/perl -w 
open IN, "data";
while(<IN>)
	{
	Array having all the sample list (ie. 123, 124, 125)
	
	}