sub get_data {
    my ( 
         $name,    # optional comment explaining @name
         $grade,   # optional comment for optional $grade
             ) = @_;

    my $answer;

# Do stuff with $name, $grade, concoct some kind of $answer
# ...

    return ( $answer );
}