@INDATA=(2.2,2.3,2.4,2.5,2.6)
$x=2.1;
$xint=0.01;

foreach $data (@INDATA){
while($x<$data){
print "$x\t";
unless($y[$n]){$y[$n]=0;}
print "$y[$n]\n";
$x+=$xint;
$n++;
}
$y[$n] += 1;
}