sub data{
my @parts;
        print @_;
        @parts = split( /:/, @_);
        print "\n" . 'size of parts: ' . $#parts . "\n";
}