for ( my $count = 0; $count < length( $data ); $count++ ) {
   my $number = substr( $data, $count, 1 );
   print( $number, "\n" );
}