sub get_first_elements_of_string
{
    my @a = (split (' ' ,"$_[0]"));     
    return $a[0];
}