{
    my $name = 'a';
    sub separate_data {
        @{$name++} = split / /, $_[0];
    }
}