In my understanding you want to process user input data by data_verify so it would be more efficient and less misleading to redesign and rename sub data_verify e.g. to process_input and call after each <> 
sub process_input{
    my $data = shift;
    chomp($data);      # cut off newline
    $data =~ s/^\s*//; # remove leading blanks
    $data =~ s/\s*$//; # remove trainilg blanks
    return $data; 
}

[download]
I would store the given information in a hash rather than an array, but that's my personal preference.

if ( ( $option !~ m{/^\d$/}xms ) or ( $option <= 0 ) or ( $option > 10 ) ) {
should be better /^\d+$/ otherwise it will match only single digits and you will never be able to quit (10).

seperate main_menu from db_connect to an extra sub would be better understandable

... I'm just thinking loudly ... oh, did I write that ?

In reply to Re: Returning and passing data to and from subroutines by BrimBorium
in thread Returning and passing data to and from subroutines by vendion

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.