while (<INPUT>)
{
$sequence = $_
@array = ()
@array = split (/\n/, $sequence );